home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / Alpha 6.5.sit / Tcl / Modes / pascalMode.tcl < prev    next >
Text File  |  1996-08-15  |  1KB  |  37 lines
  1.  
  2. if {$startingUp} {
  3.     #================================================================================
  4.     addMode Pasc dummyPascal {*.p } { thinkRefMenu toolboxRefMenu}
  5.     return
  6. }
  7.  
  8.  
  9. newModeVar Pasc leftFillColumn {3} 0
  10. newModeVar Pasc electricSemi {1} 1
  11. newModeVar Pasc wordBreak {¥w+} 0
  12. newModeVar Pasc wordWrap {0} 1
  13. newModeVar Pasc funcExpr {^[^ ¥t¥(#¥r/@].*¥(.*¥)$} 0
  14. newModeVar Pasc wordBreakPreface {¥W} 0
  15. newModeVar Pasc electricTab {0} 1
  16. newModeVar Pasc autoMark    0    1
  17.  
  18. set pascCommentRegexp    {/¥*(([^*]/)|[^*]|¥r)*¥*/}
  19. set pascPreRegexp        {^¥#[¥t ]*[a-z]*}
  20. set pascKeyWords        {
  21.     procedure function integer while with return var const unit type interface
  22.     packed record begin end boolean if else repeat for downto case to of mod 
  23.     goto file do then program or label div until set not in forward and
  24.     implementation unit
  25. }
  26. regModeKeywords -b ¥{ ¥} -c red -k blue Pasc $pascKeyWords
  27. unset pascKeyWords
  28.  
  29.  
  30. #================================================================================
  31.  
  32. proc dummyPascal {} {}
  33.  
  34. proc PascMarkFile {} {
  35.     message "Not yet (someone write me)"
  36. }
  37.